home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 37 / Amiga Format CD37 (1999-02-16)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-03].iso / -readerstuff- / daithi_o'cuinn / random_ibrowse_anim_go! < prev    next >
Text File  |  1999-01-07  |  1KB  |  51 lines
  1. /* Randomise Transfer Anim */
  2. /* A small program to allow random IBrowse Transfer Anims */
  3. /* D. O'Cuinn 1998/99 v1.03 */
  4.  
  5. address COMMAND
  6.  
  7. 'failat 21'
  8.  
  9. if ~exists("IBrowse") then do
  10.     say "This program must be executed from inside the IBrowse directory!"
  11.     exit
  12. end
  13.  
  14. /* how many have we got then? */
  15. maxanims = 0
  16.  
  17. do i = 1 to 1000
  18.     if exists("Transfer_Anims/def_TransferAnimation." || i)
  19.         then maxanims = maxanims + 1
  20.     else
  21.         break
  22. end
  23.  
  24. /* say "I have found " || maxanims || " Anims" */
  25.  
  26. if maxanims > 0 then do
  27.     anim = random(1,maxanims, time('S')) /* time supplied as seed */
  28.  
  29.     anim = 'def_Transferanimation.' || anim
  30.     'copy Transfer_Anims/' || anim || ' TO images/def_TransferAnimation' 
  31.  
  32.     infoname = 'Transfer_Anims/' || anim || '.info'
  33.     if exists(infoname) then do
  34.         'copy "' || infoname || '" TO images/def_TransferAnimation.' || maxanims || '.info'
  35.     end
  36. end
  37.  
  38. /* Try to find WBRun so as not to lose tooltype info */
  39.  
  40. 'which >T:tempobrowse WBRun'
  41.  
  42. x = open('tempy', 'T:tempobrowse', 'R')
  43. dummy = readch('tempy', 1)
  44.  
  45. if length(dummy) > 0 then
  46.     'WBRun <>NIL: Ibrowse'
  47. else
  48.     'Run <>NIL: Ibrowse'
  49.  
  50. x = close('tempy')
  51.